home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / util / misc / pIRAT-Password.lha / pIRAT-Password / pIRAT-PasswordPL < prev    next >
Text File  |  1999-01-09  |  1KB  |  44 lines
  1. /* 
  2. $VER:pIRAT-PasswordPL 1.3
  3. Prosty skrypt wymagajâcy od uûytkownika podania hasîa.
  4. Program z gatunku emailware, jeôli go masz proszë wyôlij mi email 
  5. na adres putmen@polbox.com.
  6.  
  7. Autor: pIRAT
  8. Data: 08/12/96
  9. */
  10.  
  11.  
  12. NL = '0a'x
  13.  
  14. call addlib("rexxreqtools.library", 0, -30, 0)
  15.  
  16. password="TU WPISZ HASÎO"  /*Tu wpisz hasîo i wymaû tekst miëdzy "*" */
  17.  
  18. buffer=rtgetstring(, "Proszë wpisz hasîo." ,,
  19.                        "Autor: pIRAT - 08/12/96", "  OK  ")                   
  20. if buffer = password then
  21.  
  22. EXIT
  23. else
  24.  
  25. buffer=rtgetstring(, "Hasîo bîëdne !!!" || NL ||,
  26.                        "Proszë wpisz jeszcze raz.",,
  27.                        "Autor: pIRAT - 08/12/96", "  OK  ")         
  28. if buffer = password then
  29.  
  30. EXIT
  31. else
  32.  
  33. buffer=rtgetstring(, "Hasîo bîëdne !!!." || NL ||,
  34.                        "Twoja ostatnia szansa !" || NL ||,
  35.                       "Proszë wpisz jeszcze raz.",,
  36.                        "Autor: pIRAT - 08/12/96", "  OK  ")         
  37. if buffer = password then
  38.  
  39. EXIT
  40. else
  41.  
  42. address command 'c:reboot'      
  43. END
  44.